10 PRINT : PRINT "EXAMPLE 2-5-4 MOMENT ON CIRCULAR GATE SEGMENT": PRINT
20 DEFINT I: DEF FNM (CC) = C1 * (C2 + CC) * (CC - CSO) * (1! - CC ^ 2)
30 READ R, ZO, GAM, B, W, II: DATA .5, .65, 9806., .5, 5000., 40
40 PRINT : PRINT "R;ZO;GAM;B;W,II="; R; ZO; GAM; B; W; II: PRINT
50 MOM = B * W: C1 = 2! * GAM * R ^ 4: C2 = ZO / R: THMI = 0!: THMA = 3.1416: I1 = 0
60 OM = 0!: SUM = 0!: TH = .5 * (THMI + THMA): DTH = TH / II: CSO = COS(TH)
70 FOR I = 1 TO II: TH1 = I * DTH: CS = COS(TH1): M = FNM(CS)
80 SUM = SUM + .5 * DTH * (OM + M): OM = M: NEXT I: PRINT I1; THMA; THMI; SUM
90 IF SUM > MOM THEN THMA = TH ELSE THMI = TH
100 I1 = I1 + 1: IF I1 > 16 THEN 120
110 GOTO 60
120 PRINT : PRINT " DEPTH="; : PRINT USING "#.#### "; R * (1! - COS(TH));
130 PRINT " MOMENT="; : PRINT USING "####.#"; MOM;
140 PRINT " THETAO="; : PRINT USING "###.##"; .5 * (THMI + THMA) * 180! / 3.1416